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= LOCK/UNLOCK FROM WORKING SET/MEMORY 


DECLARATIONS 
LOCK/UNLOCK PAGES IN WORKING SET/MEMORY 
UNLOCK ohpeA, Neve FROM WORKING SE 


E 
LOCK - INTERFACE TO searust F 


E 
SCNWSLX = SCAN FOR WORKING SET LIS 
MMGSEXPKSTACK = EXPAND THE KERNEL 


ROM 
NTR 
T_INDEX 
STA 
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V04-000 
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TAILS $Y Vat ee a = LOCK/UNLOCK FROM WORKING SET/MEMORY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND re 
N aco ORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT 

> E PROV W 

TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ae pORaT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARARARRAAAAAAASALALALALEA EASELS LESS LES EEE SESE RRR EERE EEC ERR R RRR ERE RESETS SY 
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Remove fatal bugcheck when MMGSSCNWSLX teits’ The global 
page was removed from the working set and should s 
faulted another time. 


v03-005 Pencoet Trudy €. Matthews ig 
Change references to working set fields in PHD - ehet 
they are used as unsigned words. 


v03-004 WMC ne Cardoza 02-Mar-1983 
MAGSERECOMT HAS CONE AUAY 


mply be 


> FACILITY: 

> ABSTRACT: 

> ENVIRONMENT: 

: AUTHOR: PETER H. LIPMAN , CREATION DATE: 24-APR-78 

: MODIFIED BY: 

; v03-009 wMc0005 yne Cardoza 26-Feb-1984 
; Support for rentaena global sections. 

; v03-008 wMc0004 Wayne Cardoza 28-Nov-1983 
3 Move kernel stack expansion WSL slots. 

; v03-007 wMc0003 Wayne Gerdeze 13-0c t-1983 
3 Add support for expanding kernel stack. 

: v03-006 LJK0247 Lawrence J. Kenah 1-Sep-1983 
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SYS. SRCJSYSLKWSET.MAR; 1 


v03-003 wMc0001 Wayne Cardoza 29-Sep-1982 
Fix loop when trying to reduce working set to quota. 


V03-002 KDM46395 Kathleen D. Morse 28-Jun-1982 
Check whether page table pages should be moved out 
of the locked portion of the working set when the 
PTWSLELCK byte array count goes to zero. 
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«SBTTL DECLARATIONS 


; INCLUDE FILES: 


SWSLDEF 
; EXTERNAL SYMBOLS: 


; EQUATED SYMBOLS: 
; OFFSET FROM AP 
INADR 


RETADR 
ACMODE 


Bhs OSi81:83 PANEMRS Hace OE OO ky | Page 


OR PRIORITY LEVELS 

s from FP into scratch area 

opcode oguivelens values 
LOC ve 
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: BIT DEFINITIONS IN R® CONTROL LONG WORD 


-VIELD 


+ OWN STORAGE: 


-PSECT $$$210,LONG 


MMGSGL_PFNLOCK:: 
- LONG 


LCK,8,<- 
<LCKPAG, .M>,= 
<ELOBAL. J - 


1830 
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CKING, CLEAR IF UNLOCKING 
OBAL PAGE 
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es De | 
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;DOWN COUNTER OF PAGES REMAINING 
THAT MAY BE LOCKED IN MEMORY 
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Fe totevcaote F FROM WORKING SET/MERIORY a ot Sth 9 9e:8]:83 AX/VMS Macro V04-00 Page (3) SY 


IMPLICIT OUTPUTS: 
NONE 
(ups ETION CODES: 


oO 
PRR RRR RRP RPP RPP PPP PP PPP PPE 


SS$_WASSET sPREVIOUS STATE OF LOCK WAS SET 
SS$_WASCLR PREVIOUS STATE OF LOCK WAS CLEAR 
SSS_ACCV sACCESS VIOLATION 

SSS_NOPRIV NO PRIVILEGE TO LOCK/UNLOCK PAGE 
SS$_LKWSETFUL ;LOCKED PORTION OF WORKING SET IS FULL 
SS$_LCKPAGFUL NO MORE PAGES MAY BE LOCKED IN MEMORY 
SS$_PAGOWNVIO ;PAGE OWNER VIOLATION 


; SIDE EFFECTS: 


UNLOCK PAGES IN WORKING SET/MEMORY SEP= SYS. SRCISYSLKWSET.MAR; 1 vo 
4 116 a ~SBTTL LOCK/UNLOCK PAGES IN WORKING SET/MEMORY 
4 118 ; FUNCTIONAL DESCRIPTION: 
. ¥ p ; THE LKWSET SYSTEM SERVIC LOCKS THE SPECIFIED RANGE OF PAGES 
4 121 3 INTO THE WORKING SET. THE PAGES LOCKED ARE NO LONGER CANDIDATES 
‘a9 : ; FOR PAGE REPLACEMENT AND ARE THUS GUARANTEED RESIDENT IN MEMORY WHEN 
4 123 ; THE PROCESS IS IN THE BALANCE SET. 
4 106: SINCE SOME REASONABLE NUMBER OF DYNAMIC PAGES IS REQUIRED IN ORDER 
4 125 ; TO GUARANTEE THAT AN INSTRUCTION CAN RUN TO COMPLETION, THE NUMBER OF 
as é ; PAGES THAT MAY BE LOCKED IN THE WORKING SET IS LIMITED. 
4 3 THE ULWSET SYSTEM SERVICE UNLOCK THE PAGES FROM THE WORKING SET. 
4 ; : CALLING SEQUENCE: 
006 131: CALLG ARGLIST,G*SYSS$LKWSET 
0046 1 ; : CALLG ARGLIST.G*SYSSULWSET 
0 4 133: CALLG ARGLIST.G*SYSSLCKPAG 
6 4 é : CALLG ARGLIST.G*SYSSULKPAG 
004 : : INPUT PARAMETERS: 
S004 138 ; INADR(AP) = ADDRESS OF 2 LONG WORDS THE 1ST OF WHICH SPECIFIES 
0004 139 ; THE STARTING VIRTUAL ADDRESS TO LOCK/UNLOCK, THE 2ND SPECIFIES 
004 140: THE ENDING VIRTUAL ADDRESS TO LOCK/UNLOCK (INCLUSIVE). 
0004 141: RETADR(AP) = ADDRESS OF A 2 LONGWORD ARRAY INTO WHICH IS RETURNED 
000 148 ; THE STARTING AND ENDING VIRTUAL ADDRESSES (INCLUSIVE) 
00 143; OF THE PAGES JUST LOCKED/UNLOCKED 
004 144: ACMODE(AP) = THE ACCESS MODE (MAXIMIZED WITH CALLING MODE) 
0004 145: ON BEHALF OF WHICH THE LOCK/UNLOCK IS TO BE DONE 
004 146: THIS MODE MUST BE AT LEAST AS PRIVILEGED AS THE MODE 
B8 if 3 OF THE PAGE OWNER. 
a0 149 t IMPLICIT INPUTS: 
iki 
00 138 3 OUTPUT PARAMETERS: 
099 135 ; RO = SYSTEM STATUS CODE 
$6 139 ; 
138 5 
159 ; 
160 ; 
161 : 
0 196 5 
0 163 ; 
164 ; 
193 ; 
189 : 
19 3 
i$ : 
171 : 
172; 
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SYSLKWSET = KOCK/UNLOCK FROM WORKING SET/MEWORY 16-SEP-1984 02:21:29 YAX/VINS Macro. VO4q © 
yOLt000 sro ay S-SEE=}BRE 26:8) :83 ge eekuseron ae § 


LOCK/UNLOCK PAGES IN WORKING SET -SEP-1984 SYS. SRCISYSLKWSET.MAR; 1 
pie eg NONE 
4 176; 
4 175 ;-- 
1 158 
: 178 : -ARRAASAAALAALALALLALALALELESEA SELES ESE CE SE SEER E EEE SECC EEE EEC AS EET aS 
2 \ 9 : eeeeeeereeeeeeee THE FOLLOWING CODE MAY BE PAGED eexeeeeeereeeeeeee 
0000 ° ; 7 .PSECT YSEXEPAGED 
6 | ¢ : PARAAAAAAAALALALALALALALALALELESLALESESE SESE E SESE SEES SESE REESE CECE aa 
i : : .ENABL LSB 
O1FC 009 188 .ENTRY EXESULWSET, *M<R2,R3,R4,R5,R6,R7,RB> 
58 20 9A $09 190 MOVZBL #WSLSM_WSLOCK,R8 ZUNLOCKING FROM WORKING SET 
05 11 9008 191 BRB 10$ 
O1FC 9007 138 .ENTRY EXESULKPAG, “M<R2,R3,R4,R5,R6,R7,RB> 
58 10 9A 0009 195 MOVZBL #WSLS$M_PFNLOCK,R8 : UNLOCKING FROM MEMORY 
50 09 3C 000C 196 10$:  MOVZWL #SS$ WASSET.RO- :INIT TO "PAGES WERE LOCKED’ 
5E 361C)6«6CC2SC(00F = «197 SUBL A MAGSC “LENGTH, SP SRESERVE SCRATCH AREA 
001 198 SAVIPL SSAVE CALLERS IPL FOR EXIT 
eh 901 199 BRB 30$ 
O1FC 0017 4 .ENTRY EXESLKWSET, “M<R2,R3,R4,R5,R6,R7,RB> 
58 20 9A 0019 88 MOVZBL #WSLSM_WSLOCK,R8 SLOCKING IN WORKING SET 
O— 11 991¢ 204 BRB 20$ 
O1FC OO1E 06 .ENTRY EXESLCKPAG, “M<R2,R3.R4,R5,R6,R7,RB> 
50 24 3¢ 0090 08 MOVZWL #SS$_NOPRIV,RO yASSUME CANNOT LOCK PAGES IN MEMORY 
0 09 IFNPRIV PSWAPM,45$ ‘BRANCH IF CANNOT LOCK PAGES IN MEMORY? 
58 10 OA 0 9 210 MOVZBL #WSLSM. PFNLOCK, R8 SLOCKING IN MEMORY 
2. & C 211 208: SUBL #-MMGSC_LENGTH,SP SRESERVE SCRATCH AREA 
00 F I DSBINT #IPL$ TASTDEL sPREVENT SYSTEM WORKING SET GROWTH AST 
41 10 0035 21 BSBB SET QUOTA WORKING SET SIZE BEFORE LOCK 
50 01 3C 0037 214 258: MOVZWL BSS _WASCLR,RO SINIT TO "PAGES WERE UNLOCKED’ 
0058 08 E2 OO3A 215 BBSS  #LCK"V_LCKPAG,R8,30$ § :SET LOCK 
56 90000011 "EF DE : 1g 30$:  MOVAL orcs G. *R6 SADDRESS OF PAGE jHOGKZUNLOCK RO ROUTINE 
58 1 1 0 F 4 1 INSV SINITIAL STATUS 
Fras" 30 004A 218 BSBW RRGS NAD RIN s INITIALIZE RETURN ADDRESS BAYS & SCRATCH A 
27 59 04D 219 BLBC 
52. 54 7D 050 0 MOVQ RGR :R2.= START OF RANGE, R3 = END 
FFAA’ 30 3 1 BSBW MMGSCREDEL : COMMON CREATE CODE 
30 bp 6 : PUSHL RO TSAVE S$ 
FFAS’ 30 005 BSBW MAGSRETRANGE err AFFECTED ADDRESS RANGE 
19 i 9 38 4 BBC RO,45 SUSE THIS BAD STATUS RATHER THAN CREDEL 
11 3 E8 6 6 BLBS _R0,4C$ :BRANCH IF SUCCESSFU 
50 0194 BF 8B CMPW 3s #SS$_LKWSETFUL,RO :1$ THIS LOCKED DORKING SET FULL STATUS 
A 18 6 : BNEQ 40% NCH IF 
. 4 6A BSBBtiéOS TREVERIFY SYSTEM DIDN'T SHRINK LIMIT 
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NG S$ 16-SEP-1984 221: AX/VMS Macro V04-00 Page 

KING SET/MEMORY etsy §g:]:€3 YOYS SRCISYSLKUSET MAR; 1 ° (%) 

BLBS = R2 5s ;BRANCH IF ADJUSTMENT OCCURED 

MOVZWL #SS$_LKWSETFUL,RO TRESET ERROR RETURN STATUS 

ENBINT SRESTORE CALLERS IPL 

MOVL G*CTLSGL_PHD,RS :GET PROCESS HEADER ADDRESS 

CLRL_ RR “ASSUME NO ADJUSTMENT RETURN STATUS 
SUBW3 PHDSW_WSLIST(R5S) ,PHDSW_WSQUOTA(R5),RO ;GET MAX LOCKABLE SIZE 
INCW ORR 71N ORIGIN 1 

MOVZWL RO,RO :GET IT IN A LONGWORD 

MOVZWL PHOSW_WSSIZE(R5),-(SP) :GET CURRENT SIZE 

SUBL  ($P)+*7RO [GET DIFFERENCE FROM CURRENT SIZE 

BEQL :BRANCH IF CURRENT SIZE IS QUOTA, RO=0 

MOVW PHDSW_WSSIZE(R5),-(SP) SAVE STARTING SIZE 

CLRL = = ( SP) 'NO RETURN SIZE NEEDED 

CVTWL RO,-(SP) [FORM ADJUSTMENT SIZE 

CALLS #2.SYSS$ADJWSL SADJUST THE WORKING SET SIZE 

CMPW = PHOSW_WSSIZE(R5),(SP)+ :DID SIZE CHANGE 

BEQL 60$ [NO = GIVE UP 

BISB = #1, R2 :SET ADJUSTMENT PERFORMED 

BRB 55$ :09 THIS TILL SIZE AT AUTHORIZED QUOTA 
RSB ‘RO LOW BIT INDICATES CHANGE OCCURRED 
DSABL LSB 


vo WORKING SET/MERORY 1 mie hs Og :8]'83 yaxives Macro V04-00 Page 7 SY 


~ 
ac 


SYSLKWSET = LOC 
vOe=000 UNLOC 
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FROM WORKING SET -SEP=1 SYS.SRCISYSLKWSET.MAR; 1 (4) vO 
~SBTTL UNLOCK GLOBAL PAGE FROM WORKING SET 

CALLING SEQUENCE: 
BSBW § MMGSULKGBLWSLE 


9 INPUTS: 
IPL = SYNCH 
R1 = WORKING SET LIST INDEX OF ENTRY TO UNLOCK (HIGH 16 BITS = 0) 
0 Re = WORKING SET LIST ENTRY (VA AND PAGE TYPE) 
RS = SYSTEM VIRTUAL ADDRESS OF PAGE TABLE ENTRY 
R4 = PROCESS CONTROL BLOCK ADDRES 
RS = PROCESS HEADER ADDRESS (P1 SPACE OK) 
3 OUTPUTS: 
0 Re Oe AC TEReD 
0 R 


IS ALTERE 
PHDSW _USDYNCRS) = NEW WORKING SET LIST INDEX FOR THE UNLOCKED PAGE 


LARRASAASARARAAAAALAAALARE AALS SERSE SESE SEES ERASER RSA AER ESE SRR R RE ACSA LAS 


ekeeeeeeeeeeeees THE FOLLOWING CODE MUST BE RESIDENT teeeeeeneerenenes 


Sete Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


Pee Beal® 194) 8) ee] ee) we] we] oe) we ee ee ee) 
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50.0000 09 09 09 09 09 09 09 09 SI INI NII SIN SIA AAAAAAAAO ITI 


0000 00 .PSECT $MMGCOD 
00 : pRARASZASLAAAASALALALALALALALELALASAELELSZELLESLE LSE SASSER ES ESE RA SELES ESSA SG 
00 ; 
00 MMGSULKGBLWSLE: : 
08 DD 000 PUSHL WIPLS SYNCH ;SAVE IPL FOR ENBINT TO RESTORE 
7E 51 7D 000 mova (SP) PUSHL VA, PUSHL WSLX 
50 63 pO 000 MOVL RR ) 20 GET PAGE TABLE L ENTRY 
58 00090030 8F DO 000 MOVL  &#<SS$_WASSET a16 ! :SET UNLOCK PARAMETER 
00 WSLSM custock ! WSLSM_ PFNLOCK>, R8 ;INR 
43 11 000 BRB ULKGBCWSL ;JOIN COMMON LOCK/UNLOCK CODE 


SYSLKWSET = LOCK/UNLOCK FROM WORKING SET/MERORY =SEP=1984 AX/VMS Macro V04-00 P 
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a .SBTTL LOCK/UNLOCK SINGLE PAGE IN WORKING SET/MEMORY 
: FUNCTIONAL DESCRIPTION: 


— 
—_— 


CALLING SEQUENCE: 
BSBw MMGSLCKULKPAG 
INPUT PARAMETERS: 


R = ACCESS MODE TO CHECK AGAINST PAGE OWNER 
R = VIRTUAL ADDRESS 
R4 = PCB ADDRESS 
R5 = PROCESS HEADER ADDRESS = P1 OR SYSTEM SPACE 
R = COUNT = 1 OF PAGES REMAINING TO BE DELETED INCLUDING THIS ONE 
R = +*X200 IF GOING FORWARD IN ADDRESS SPAC 
= =*X200 IF GOING BACKWARDS IN ADDRESS SPACE 
R8<0:7> = WSLSM_WSLOCK IF LOCKING IN WORKING SET 
= WSLSM_PFNLOCK IF LOCKING IN ia ai 
= EITHER OR BOTH OF THE VE IF UNL 
R8<8> = LCK_V_LCKPAG SET IF oe aaa CLEAR. IF UNLOCKING 
R8<16:31> = SS$"WASSET OR SS$_WASCLR 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO SYSTEM STATUS CODE (INCLUDING ‘WAS SET* BIT IF SUCCESSFUL) 


PRESERVED 

SS$_WASSET IF LOCKING AND THE LOCK HAD ALREADY BEEN SET 
at WASCLR IF UNLOCKING AND THE LOCK HAD ALREADY BEEN CLEAR 
OTHERWISE IT IS PRESERVED. 


R2 
R8<16:31> 


IMPLICIT OUTPUTS: 


NONE 
COMPLETION CODES: 
SS$_WASSET zIF LOCKING, WAS ALREADY LOCKED 
SS$"WASCLR [IF UNLOCKING, WAS ALREADY UNLOCKED 
“ACCVIO TACCESS VIOLATION 
5$$~PAGOWNVIO [PAGE OWNER VIOLATION 
SS$"LKWSETFUL SIF LOCKING, LOCKED PORTION OF WORK SET FULL 


SIDE EFFECTS: 
NONE 
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SYSLKUSET / = LOCK/UNLOCK FROM WORKING SET/MEMORY Ig SEP-1984 03:21:29 AX/VMS Macro 04-00 Page 
v04= LOCK/UNLOCK SINGLE PAGE IN WORKING SET/M 5=SEP-1984 03:54:52 [CSYS.SRCIJSYSLKWSET.MAR;1 
1 rk} : PARRAAAAALALASLLALELALLEASA LALA LESSEE SEE E EERE E SECA EES EEE EEC EEE Ee aaa 
1 48 ; 
1 i f eeeeeererererere THE FOLLOWING CODE MUST BE RESIDENT *eeeeeeerenereeee 
0000 1 . ic .PSECT $MMGCOD 
11 38 : PARRAAAAAAALAAALALALALLALALLELEE SEALE ASE RESALE EEC E SELES ESSE EEE EE Cee aa 
11 4; 
i 33 .ENABL LSB 
gi 33 MMGSLCKULKPAG:: 
51 p& 0011 8 CLRL R11 yNO WORKING SET LIST INDEX INPUT 
00 58 09 FA O13 59 BBSC Ck V GLOBAL RB, 15S sASSUME NOT A GLOBAL PAGE 
62 01 00 § 1 60 15$: PROBER #0,#T,(R2) :1S THIS PAGE ACCESSIBLE? 
m9 oi 61 BNEQ 30$ [BRANCH IF Y 
50 OC 3¢ O1D 6¢ MOVZUL #SS$_ACCVIO,RO sACCESS VIOLATION IF NOT 
62 95 09 1 64 30$: TSTB ss (R22) ;FAULT THE PAGE INTO THE WORKING SET 
90 66 ! RO = ACCESS MODE FOR PAGE OWNER CHECK 
0 67 ; R1 = 0 INDICATING NO INPUT WORKING SET LIST INDEX 
8 rt: 3; R2 = VIRTUAL ADDRESS 
00 70 ° DSBINT #IPL$_SYNCH ;RAISE TO SYNCH TO INTERLOCK PFN DATA 
0029 «371 SPUSHING CALLERS IPL 
07 88 0029 i PUSHR #*M<RO,R1,R2> SPUSH VA, LOCK/UNLOCK FLAG, ACCESS MODE 
FFDg" 0 0028 37 BSBW NMGSSVAPTECHK SRETURN R3 = SYS VA OF PAGE TABLE ENTRY 
50 63 DO OO2E 37% MOVL (R3),RO :RO = PAGE TABLE ENTRY 
1A —s19 00 1 i BLSS 508 :BRANCH IF IT'S VALID 
33 44 : PAGE NOT VALID!! MUST HAVE SWAPPED JUST AFTER TOUCHING IT, TRY AGAIN 
07 +BA 00 79 35s: POPR #*M<RO,R1,R2> 
9 5 80 ENBINT 780 WE CAN FAULT IT AGAIN 
e711 0038 1 BRB 30$ :TOUCH THE PAGE AGAIN 
50 O1EC ef 3¢ 005A es 40S: MOVZUL #SS$_PAGOWNVIO,RO :PAGE OWNER VIOLATION 
50 24 3 0941 85 42$: MOVZWL #SS$_NOPRIV,RO ZNO PRIVILEGE 
0144 «31 044 86 44$: BRW 110$ 
O947 i : THIS PAGE IS NOW VALID AND IN THE WORKING SET 
47 : 
50 99 3° 3 3 47S: MOVZWL #SS$_WASSET,RO sSUCCESSFUL RETURN PATH FOR SHARED 
013€ 1 4A 3 BRW 110$ : MEMORY AND PFN MAPPED PAGES 
8 50 02 17 FD 4D 394 50S: CMPZV #PTESV_OWN,#PTESS_OWN,RO,(SP)+ ;CHECK PAGE OWNERSHIP 
&6 19 3¢ 99 a anh 40$ [BRANCH IF OWNER VIOLATION 
EF 50 15 €0 34 39 BBS #PTESV_WINDOW,RO,47$ —_;RETURN SUCCESS FOR PFN MAPPED PAGES 
5 1 90 FF 38 98 EXTZV #PTESV"PFN, #PTESS_PFN.RO.RO ;:RO = PAGE NUMBER 
$0000000" EF D1 dD 39 CMPL RO, MMGSGL_MAXPFN SCHECK FOR PAGE IN SHARED MEMORY 
53 ooca fs O06 401 BOL” PHDSL_POBR(RS) .R3 CBVTE OFFSET OF PAGE TABLE ENTRY 
52. 53 £8 bi 4 68 402 ASHL Wo RS RD : ‘BYTE INDEX OF CONTAINING PAGE TABLE 
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548: MOVZWL 43?) »,RT NORMALLY 
BNEQ 57$ 


; NEED TO SCAN FOR THE a erebat +4 
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E 4 
OM WORKING SET/MEMORY 16-SEP-1984 AX/VMS ro v04-00 Page 10 
LE PAGE IN WORKING SET/M g-sEF =}382 8¢: g}: §3 SYS.SR ci YSLKWSET. MAR; 1 - ww 
ASSUME PENSC_PROCESS EQ 
ASSUME PFNSC"SYSTEM EQ 
ASSUME PFNSC-GLOBAL £0 
SSUME PFNSC-GBLWRT EQ 
ASSUME PFNSC"PPGTBL £0 4 
ASSUME PFNSC"GPGTBL EQ 5 
EXTV  #PFENSV gpactve WPFNSS_PAGTYP,- ;SEE IF PAGE IS A TYPE 
“PFNSAB_TYPECROJ,RT ;THAT CAN BE LOCKED 
BEQL 6$ i PROCESS PAGES MAY BE LOCKED 
BBSS ack V gLOBAL R8,52$ PAGE Is GLOBAL (OR ) 
52S: CMPL #PFASC GLOBAL iSEE IF PAGE IS GLOBAL OR GLOBAL WRITE 
BEQL 46-548 ‘BRANCH IF GLOBAL R 
BLSS 23 ‘BRANCH IF PAGE TYPE NOT LOCKABLE 


MAY BE LOCKED IN MEMORY, BUT NOT IN WORKING SET BECAUSE 
THE SWAPPER DROPS GLOBAL WRITABLE PAGES FROM THE WORKING SET ON OUTSWAP 


BBC #LCK_V_LCKPAG, R .54$  ;0K IF UNLOCKING 

BBS #WSLSV-WSLOCK,R8.42$ ; CANNOT LOCK GLOBAL WRITE IN WORKING SET 
WSLX IF _uiKGBLW SLE 

{BRANCH iF it | 


ET LIST INDEX since THE WSLX ARRAY 
DOES NOT CONTAIN THE BACKPOINTER FOR GLOBAL PAGES 


PUSHL R2 SAVE INDEX OF PAGE TABLE CONTAINING THIS PA 
MOVL 8(SP) ,R2 RECOVER VIRTUAL ADDR 
BSBW MMGSSCNWSLX ;SCAN FOR WORKING SET LIST INDEX 


MAY HAVE BEEN SWAPPED, RECALCULATE PTE ADR, REFETCH PFN 


EXTZV oe reey PFN,#PTESS PFN.= ;REFETCH PFN GIVEN THE 
@aPH He “POBR(RS)CR3I, RO” BYTE OFFSET OF PTE IN PAGE TABLE 


POPR anc orn SAV 
TSTL FOUND THE WORKING SET LIST INDEX? 
BNEQ Bs ;BRANCH IF YES 


CHECK FOR A RESIDENT GLOBAL SECTION PAGE 
MOVL aW*PFNSAL BAKERO}] R1 ss GET BACKING STORE 
é [MUST BE P 


BC #PTESV_TYP AGE-F ILE 

CVTWL Rl TISOLATE GLOBAL SECTION TABLE INDEX 
MOVAL MMGS$GL_SYSPHD,RO SADDRESS OF SYSTEM HEADER 

ADDL Pus ab TASOFF (RO) , RO :GET SECTION TABLE BASE 

MOVAL “GET T RRECT SECTION TABLE ENTRY 
BBC a3eC . TRESIDENT, SECSW_ FLAGS (ROD 55$ 

BRW ;RETURN SUCCESS 


THE GLOBAL PAGE WAS REMOVED FROM THE WORKING SET. THE ROUTINE WILL BE 
BACKED OUT AFTER THE STACK IS PUT INTO A CONSISTENT STATE. 


PUSHL MMGSL_MAXACMODE (FP) :PUSH ACCESS MODE FOR OWNER CHECK 
BRW 35$ JOIN COMMON RETRY LOGIC 


; PROCESS PAGE, GET WORKING SET LIST INDEX FROM PFN DATA BASE 


oe 
SYSLKWSET = LOCK/UNLOCK FROM WORKING SET/MEMORY =SEP=1984 AX/VMS Macro V04-00 Page 11 
bbe fi LOCK/UNLOCK SINGLE PAGE IN WORKING SET/M Verse P=19 3B 86: g}: 85 HOYS SRCISYSCKUSET MAR; 1 - wD 
D8 4 0 . 
D8 461 56s: PEN_R itt ~ 
p 466 MOVZWL <aurrr Ax WSLXCROJ, R1>,= :R1 = INDEX TO WORKING SET LIST ENTR 
D8 464 YS DAES 
53 6541—Ss=~E p 469 57$:  MOVAL Tnaceests R3 ;R3 = ADDRESS OF ENTRY 
E 189 : RO = PAGE FRAME NUMBER 
E2 468 ; R1 = WORKING SET LIST INDEX FOR THIS PAGE 
OE 469 ; Re = INDEX OF PAGE TABLE CONTAINING THIS PAGE 
E2 470 ; R3 = WORKING SET LIST ENTRY ADDRESS 
E2 471: 0( SP) = SCRATCH 
OF f : 4(SP) = SAVED VIRTUAL ADDRESS 
58 58 08 €1 Oe 474 §8$: BBC #LCK_V_LCKPAG,R8,80$ | ;BRANCH IF UNLOCKING 
aoe 476 : LOCK THE PAGE IN THE WORKING SET LIST 
63 58 «93 bore 478 BITB — RB, (R3) sALREADY LOCKED? 
07 13 O0E9 479 BEQL :BRANCH IF NOT 
58 10 10 99 FO OOEB 480 INSV  &#SSS$_WASSET,#16,416,R8 :PREVIOUS STATE aff LOCK WAS SET 
8 11 OOF 481 BRB ‘NOTE INSV CLEAR T 
CF 8F 8B OOF2 & E 60$: BICB3 re CcuSLSM WSLOCK ! WSLSM’PFNLOCK>,- LEAVE THE CURRENT STATE 
6— 63 OOF 48 TOF THE LOCK’ 
OF 12 OOF? 484 BNEQ 628 SBRANCH IF NEITHER IS SET 
76 AS oi 81 OOF9 ie CPW # ,PHOSU_ EXTDYNWS(R5) ; POSSIBLE TO LOCK 2 MORE PAGES? 
50 0194 BF 3¢ OOFF 4 § MOVZWL #SS$_LKWSETFUL,RO LOCKED PORTION OF WORKING SET FULL 
0084 31 0104 488 BRW 11087 
15 58 04 €1 0107 489 62%: BBC ast SV -PFNLOCK R8,68$ :BRANCH IF LOCKING IN WORKING SET 
08 58 ~4#409~=C#é€:1 0108 490 BBC #LCK AY KV pGLO8 LR8 +648 [BRANCH IF PAGE IS NOT GLOBAL 
10F 49¢ ACBW OS C<# 1781 au" PFNSAx “WSLXCROI, 64$ >,- ;BRANCH IF FIRST LOCK IN 
10 49 CONG oPco BL> 
10F 49% IRAGESSYS ORONPAGED 
118 495 ;MEMORY OF THIS GLOBAL PAGE 
06 11 0118 496 BRB 68$ 
Q000'CF D7 O11A 497 64$:  DECL = W*MMGSGL_PFNLOCK :CAN ANY MORE PAGES ube LOCKED IN MEMORY? 
71 #19 O11E 498 BLSS 150% [BRANCH IF NO, TOO MANY ALREADY LOCKED 
63 «58 88 1 499 68$:  BISB RB,(R3) :SET NEW LOCK BIT IN USLE 
6E 1 0 TSTB 3s (SP) [WAS ENTRY ALREADY IN LOCKED PART OF WS? 
SF 12 3 1 BNEQ 1008 SBRANCH IF YES 
f 5 : ENTRY MUST BE PLACED IN THE LOCKED PORTION OF THE WORKING SET 
7¢ «#10 0127 5 BSBB SWAPLOCK :SWAP THE WORKING SET LIST ENTRIES 
62 96 0129 : INCB~—_ (R2) [COUNT ANOTHER LOCKED WSLE FOR THIS PAGE TAB 
03 14 0128 BGTR 70 [BRANCH IF NOT THE FIRST IN THIS PT 
6C AS BG O01 2D j INCW  PHDSW_PTCNTLCK(RS) i ANOTHER PAGE TABLE WITH LOCKED WSLE'S 
O— AS) «B6 CO 70$: INCW § PHDSWTWSDYN(RS) NAMIC PART wot vist 
1 10 ARTS ONE E HIGHER 
OE AS 1005 B1 O01 1 CMPWY =—- PHDSW_WSNEXT(RS) ,PHDSW gan ) 4 at USNEXT_ AO LONGER 
1 I :POIN TING INT 19 DYNAMIC REGION? 
49 1€ 01 1 BGEQU 98% ANCH IF IT'S OK 
10 AS) 12: AS 8 13a 514 MOVW § PHDSW_WSLAST(RS) ,PHDSW “waneXt RS) OTHERWISE POINT IT TO END 
42 138 13 BRB 98$ sEXIT SUCCESSFU 


SYSLKWSET = LOCK/UNLOCK FROM WORKING SET/MEGORY -§ pol 4 AX/VMS Macro V04-00 Page 1 
WOnt000 LOCK/UNLOCK SINGLE PAGE IN WORKING elim | 1382 88: g}: §3 SYS.SR 4 SYSLKUSET. MAR; 1 ° 8) 
141 Wi UNLOCK PAGE FROM WORKING SET LIST 
63 : 93 0141 18 § 0$:  BITB Rs (R3) s1S THIS PAGE LOCKED? 
1 144 BNEQ -90$ ‘BRANCH 
58 10 10 1 f 146 1 INSV sss. WASCLR,#16,416,R8 :AT NEAST. ONE PAGE WAS ALREADY UNLOCKED 
13 4 €1 0140 ; 90$: BBC #WSLSV -PENLOCK, (R3) 94$ ;BRANCH IF PAGE NOT LOCKED IN MEMORY 
OF 4 €1 0151 i BBC #WSLSV~ PFNLO 94$ BRANCH {F NOT UNLOCKING IT FROM MEMORY 
7 09 «ET 13 5 BBC #LCK VEG rok LOBAL Kah “828 :BRANCH IF NOT A GLOBAL PAGE 
1 3 $ DECW POUPPEN Ax WSLXCROD>, - jONE LESS MEMORY LOCK FOR THIS GLOBA 
133 § LONG_OPCODE=D 
1 MAGE=SYS ONONPAGED 
04 14 13 0 BGTR 4$ ; BRANCH IF NOT LAST MEMORY LOCK 
0000'CF D6 016 1 92$: INCL wenAGSGL_ PFNLOCK SANOTHER PAGE MAY BE LOCKED IN MEMORY 
8 BA 0164 j 94$: BICB “CLEAR THE DESIRED totk BIT(S) 
6 0 93 0167 BITB #<WSLSM_WSLOCK ! WSLSM_ pENLOCK>. &R R3) “MUST PAGE REMAIN IN THE 
016A 4 sLOCKED PORTION OF THE WORKING SET? 
1A 12 16A 5 96$:  BNEQ 1008 S BRANCH OF Rese IT IS STILL LOCKED 
O16¢ $i MOVE THIS WORKING SET LIST ENTRY OUT OF THE LOCKED PORTION OF THE WORKING ET 
OE AS 87 O16 2 § DECW  PHDSW_WSDYN(RS) ; INCLUDE LAST LOCKED SLOT IN DYNAMIC REGION 
34 10 16F 340 BSBB © SWAPLOCK [SWAP ENTRIES WITH THE LAST LOCKED ONE 
52D oi 1 541 PUSHL  R2 [SAVE BYTE INDEX OF PAGE TABLE PAGE 
52 08 AE p0 173 248 MOVL  8(SP),R2 TRESTORE VA 
FE86" 30 017 4 BSBW MMGSSVAPTECHK [GET R3 = SVAPT 
52 BEDO O17A 544 POPL R2 TRESTOR INDEX OF PAGE TABLE PAGE 
50 gi F 017D 545 MNEGL #1,R0 SINDICATOR DECREMENT OF PTWSLELCK ARRAY 
FE7D" 1 9 46 SBW = MMGSMOVPTLOCK1 TONE LESS REASON PT PAGE MUST BE LOCKED 
FE7A’ 30 01 47 98$:  BSBW WMGSEXTRADYNUS SRECALCULATE EXTRA DYNAMIC WSLE COUNT 
50 58 FO 8F 78 0186 48 100$: ASHL  #-16,R8,R0 SRETURN WASSET OR WASCLR 
06 BA 01 49 110$:  POPR ooncht 6,80 SRESTORE R2 = VIRTUAL ADDRESS 
180 30 ENBINT AND RESTORE THE CALLING IPL 
05 0190 1 RSB SAND RETU 
191 888 
8 ae + TOO MANY PAGES LOCKED IN MEMORY TO ALLOW ANOTHER TO BE LOCKED 
0558 O09 €1 191 36 is0$: BBC #LCK V GLOBAL, »R8,155$ — ;BRANCH IF PAGE NOT GLOBAL 
198 38 DECW POU" PENEAG WSLXLROI>, :THIS GLOBAL PAGE NOT LOCKED IN MEMO 
195 55 LONG OPCODE=DE 
195 69 AGE=SYS NONE AG D 
0000' CF 06 19A 155$: INCL CeaReseL PFNLOCK :FIX THE COUNTER 
50 0004 BF 3C 019 6¢ MOVZWL #58 rekPAGrUL. RC [NO MORE PAGES MAY BE LOCKED IN MEMORY 
& 11 1A 63 BRB 
1A 65 .DSABL LSB 
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E TO SWAPWSLE FROM LO Sty 9g: :83 SYS.SRCISYSLKWSET.MAR; 1 - 13) 


~SBTTL SWAPLOCK = INTERFACE TO SWAPWSLE FROM LOCK/UNLOCK 


K 
NT C 


INPUTS: 

LOT 
T (WSLX1) 

THE PAGE BEING LOCKED/UNLOCKED 


ESS = E 
OR MANIPULATING WORKING | 


LIST 
ECAUSE PFN DATA BASE | 


T 
E IS CHANGED 


Rg PRESERVE 
R2 = moon 
ie 


SPECIFIED 


WAPLOCK: 

PUSHL R2 ySAVE PAGE TABLE NUMBER 

MOVZWL PHDSW_WSDYN(RS),R2 SINDEX TO SECOND WORKING SET L 

BSBB =MMGSSQAPWSLE “SWAP THE WO T ENT 

ADDL3 PHDSL_PTWSLELCK(RS),R5,R2 ;BASE ADDRESS OF ARRAY OF COUNTS OF 
sLOCKED ENTRI 

ADDL  (SP)+,R2 S ADDRESS T BYTE FOR # O 
[WSLE'S IN THE PAGE TABLE 


ONTAINING COUNT OF LOCKED WORKING SET LIST 
LIST ENTRIES ARE SWAPPED 


Slee Ge te Se eee 


SDV PU PVLPUSUSVSPESVSUSVUSUSISISISISIOSIOSIIO 
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oO 
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Wtytatet 4 flit tt ttt ttt ttt ttt te “e 


MVNO 
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I he eh lh ech sb nhc ch ich sdb dt dla dic clic cla edie “clade “addy “clude “edhe “edu “cde “adh sich “adil “elas “die “cach “lel 


OOO OOO 0000090909 090909 08 NINN NINN O 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
RO PRESERVED 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 
NONE 


I 4 

SYSLKWSET = LOCK/UNLOCK FROM WORKING SET/MEMORY 16-SEP-1984 02:21:29 YAX/VMS Macro V04-00 Page 14 SY 
vOe-000 SWAPWSLE = SWAP WORKING SET LIST ENTRIES mitt 7 8:81:83 USYS SRCISYSLKUSET MAR; 1 . (8) vo 

; «SBTTL SWAPWSLE = SWAP WORKING SET LIST ENTRIES 

. FUNCTIONAL DESCRIPTION: 

B6 ; TPIS ROUTINE SWAPS THE CONTENTS OF THE FIRST WORKING SET LIST SLOT 

8 WHICH MUST BE ACTIVE WITH THAT OF THE SECOND WORKING SET LIST SLOT 

. WHICH MAY BE EITHER ACTIVE OR FREE. 

8° CALLING SEQUENCE: 

44 BSBW MMGSSWAPWSLE 

88 INPUT PARAMETERS: 

B6 RO = PFN OF THE FIRST WORKING SET LIST SLOT 

B6 Ri = INDEX TO FIRST WORKING SET LIST SLOT (WSLX1) 

B6 R2 = INDEX TO SECOND WORKING SET LIST SLOT (WSLX2) 

B6 R4 = PCB ADDRESS 

B6 RS = PROCESS HEADER ADDRESS = P1 OR SYSTEM SPACE 

B6 IPL = SYNCH, ESSENTIAL FOR MANIPULATING WORKING SET LIST 

+44 FOR SYSTEM SPACE, AND BECAUSE PFN DATA BASE IS CHANGED 

B6 

86 

B6 

B6 
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SYSLKW = LOCK/UNLOCK FROM WORKING SET/ MEMORY 16-SEP-1984 AX/VMS Macro V04-00 Pp 15 SY 
vou SWAPUSLE = SUAP WORKING SET CISTTENTRIES SesePotone OS:Su.8> PeNCVES Macro, WOK=OO Page 13, ve 
, : CARA AASALAALALALALLLELE SELES EEE EEE EEE EEE EEE EE TET EET ee eect c acc aaiay 
rf : teetererereneere THE FOLLOWING CODE MUST BE RESIDENT eeeeeeeecerererer 
46 ? .PSECT $MMGCOD 
? : PAAR AAAASAAALALALSALLELEAAL EEE EE EEE SESE EASE CEES EEE ESE EEE EEE EEE CEE Ea 
-ENABL 1SB 
MMGSSWAPWSLE: : 
CMPL =_- R11, R2 z1S THE SWAP A NOP? 
6 4 BEQL 70§ ‘BRANCH IF YES 
PUSHL (R5)CR1) ;PUSH WSLE1 
$ PUSHR #*M<RO.R2> [PUSH WSLX2, PFN(WSLX1) 
MOVL  (R5)CRO),R2 7GET WSL E2 
638 BNEQ 308 ;BRANCH IF NOT AN EMPTY ENTRY 
65 CLRL (R5)CR1) :JUST FREE WSLX 
660 BRB 708 yAND GO SET oP u SLX2 
661 50$ BLBC «= R2, SWAPWSLEBUG [BRANCH IF WSLE Abr VALID, ERROR 
66¢ PUSHL R TSAVE W wsL J 
66 BSBW  MMGSSVAPTECHK SRETURN R3 = SYS VA OF PAGE TABLE ENTRY 
664 BSBW #MMGSWSLEPFN :6 T _PFN FROR SVAPTE OF THIS WSLE 
665 POPR #*M<RI> WSLX 
958 BSBB =: SETWSLE ‘STORE WSLE AND WSLX 


g: MOVE THE OLD WSLE1 INTO SLOT INDEXED BY WSLX2 
O(SP) = PFN OF WSLE1, 4(SP) = WSLX2, 8(SP) = WSLE1 


fos: POPR #*M<RO,R1.R2> ;RO=PFN, RI=WSLX2, R2=WSLE1 


STORE WORKING SET LIST ENTRY INTO ITS WORKING SET LIST ENTRY SLOT 
AND STORE Hye ts PFN DATA BASE IF PAGE TYPE IS NOT GLOBAL 


07 BA 


SUAPWSLEBUG: 
BUG_CHECK SWAPWSLE, FATAL 
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MMIMMMMMS VINO OOOOOOOP PS SF POOwWOMWooefL£om 


: 
& : 
$3 RO = PAGE F NUMBER 
$: : RI = WSLX, Roe = WORKING SET LIST ENTRY WITH PAGE TYPE 
: SETWSLE: 
6541 52 00 MOVL  R2,(R5)CR1) STORE WORKING SET LIST ENTRY 
02 52 03 01 FC 0 CMPV #WSLSV_PAGTYP, #WSLSS _PAGTYP, R2,#PFNSC_ GLOBAL ;GLOBAL PAGE? 

06 1 BGEQ 908 ;BRANCH IF NOT 

; PEN _REFERENCE 
MOVW <1 ZeWsPENSAx WSLXCRO}>, - :SET PFN WSLX 
4 CONG OP 
5 IMAGES ore ORONPA AGED 
05 g 90$:  RSB ;AND RETURN 

g: t LENGTH VIOLATION FOR VIRTUAL ADDRESS IN WORKING SET LIST 
0 
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~SBTTL SCNWSLX = SCAN FOR WORKING SET LIST INDEX 


FUNCTIONAL DESCRIPTION: 


ie ont CANS THE ENTIRE WORKING SET FOR THE SPECIFIED 
VIRTUAL SS. 1 CALLED AT IPL=SYNCH, LOWERS TO IPL=ASTDEL 
TO 00 TH He SCAN AND RAISES BACK TO SYNCH WHEN COMPLETED. 
PPING IPL_ TO ASTDEL AND THUS MAKING THE PROCESS ELIGIBLE 
roe Std PLACES THE FOLLOWING RESTRICTIONS ON THIS CODE AND 
CODE MAY NOT FAULT PROCESS PAGES SINCE THAT MIGHT 
FAULT OUT THE DESIRED WORKING SET LIST ENTRY. 
ALLING CODE MAY NOT KEEP ANY SYSTEM SPACE ADDRESSES 
FOR THE PROCESS HEADER OR PAGE TABLE ENTRIES SINCE THE HEADER BASE 
ADDRES a CHANGE IF THE RAY ant IS SWAPPED. 
CALLING CODE MA T HOLD A PFN FOR A GIVEN PAGE SINCE 
THAT TOO COULD CHANGE IF THE "PR ROCESS WERE SWAPPED. 


CALLING SEQUENCE: 
BSBW MMGSSCNWSLX 
INPUTS: 


Re = VIRTUAL ADDRESS TO SCAN FOR 
R> = Pl ADDRESS OF PROCESS HEADER 
IPL = SYNCH, DROPS TO ASTDEL, RESTORES TO SYNCH ON RETURN 
SEE FUNCTIONAL DESCRIP PTION N ABOVE! 
OUTPUTS: 
R1 = wares a List INDEX IF FOUND 
= 0 IF NOT FOUN 
R3 = ty, veD 
IPL = IS LOWERED TO ASTDEL AND RESTORED TO SYNCH ON RETURN 
See” FUNCTIONAL DESCRIPTION ABOVE! 


AHRARAAKA KAT KEK HE AA ATH AAKKeKeKeKeeHeeeeeeeeeeeeeenenereneereeeeeeee 
eeeeeeeeeereeree THE FOLLOWING CODE MUST BE RESIDENT seeeeeceeeeeceree 
~PSECT SMMGCOD 


§ RAHAT AR THEATRE TAETAAAAERAAAAAAAAAAARAAARAAEAAAHEAeeeTeAeeeRekeTenes 


MMGSSCNWSLX: : 
SETIPL #1PLS ASTDEL LOWER IPL FROM SYNCH TO ASTDEL 
HL f- “VASS BYTE,R2,R2 ;JUST IN NTERESTED IN PAGE NUMBER BITS 
MOVZUL PHDS Q (ork easy. R1 + INDEX 


TaeRi j IRST NON@PERMANENT WSLE 
Putt W tA T(R5) ,RO 3 IN 


R 
FIRST WSLE 
AST (INCLUSIVE) WSLE 


SN er 
DPAREDP_EQD PAP BS BP EE EUAN 
WN O OONOA UNE WN 0 ODNOAUE WH - OOONOUM 
=z 
o 
< 
~N 
<= 
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>— 
om 
_ 
oO om 
ay tie Bea) 


MNO) 2 2 SS I MOQOOO MTT TTT HHH 


FOU III ONIN FB OPO™ BD UPOPPoNononononononwnys 


DE AD DRE SS OF LAST WSLE 
52 61 17 FC 208:  CMPV #VASV, ee AVASS_VPG,(R1), rae is THIS THE DESIRED WSLE? 
FFF3 51 04 Fi ACBL RO, #4,R1,208 SLOOP THROUGH ALL THE SLOTS 
f WORKING SET LIST ENTRY NOT FOUND FOR SPECIFIED VIRTUAL ADDRESS 
5104 757 $0$: CLR R1 ;RETURN IMPOSSIBLE WSLX 
7 CETIPL FIPLS_SYNCH SRESTORE IPL SYNC 
05 f RSB ‘AND RETURN TO CALLER 
, : FOUND THE WORKING SET LIST ENTRY 
0 763 40S: SETIPL #IPL$_SYNCH sBACK TO IPL SYNCH 
F461 «ED 764 BLBC (R1),30$ MAKE SURE SWAPPER DION'T JUST 
0 765 [RIP THE ENTRY OUT FROM UNDER US 
sn ss @ 0 76 SUBL SCONVERT ADDRESS 
51 51 1 9 76 ROTL R248. o> Rt Rt SBACK TO INDEX 
05 0 768 RSB SRETURN WITH WSLX IN R1 
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~SBTTL MMGSEXPKSTACK = EXPAND THE KERNEL STACK 


FUNCTIONAL DESCRIPTION: 


THIS ROU 
USING TH 
SUCCESS 


TINE EXPANDS THE KE 
; RESERVED WORKING 
F THE STACK HAS AL 


CALLING SEQUENCE: 


CALLS 


INPUTS: 


OUTPUT 


NONE 
$: 
NONE 


#0 ,MMGSEXPKSTK 


AX/VMS Macro Vv04-00 
SYS.SRCIJSYSLKWSET.MAR; 1 
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SYSLKWSET = LOCK/UNLOCK FROM WORKING SET/MEMORY 16-SEP-1984 AX/VMS v04-00 Page 19 
W0et000 mMBSERPROT ACK = EXPAND THE KERNEL STACK g-8E eats ri 8g: g} 3 SYS.SR 42 KWSET.MAR; 1 9 43) 
B 792; 
B 738 ; LARRABAAAASAAALALALALALAALL ALES EEE LESS ESE SESE EES ECE EEE E LESSEE SALAS 
8 3 
4 738 j weeeneeereeeeeeee THE FOLLOWING CODE MUST BE RESIDENT eeeeererererereese 
0000 : 19% -PSECT SMMGCOD 
B 199 | : LARRRAAASAAAALALALALESALLELALE ESSERE E AEE AES SEER SESS E SESE ESE CECE aa 
8 
8 0 AMGSEXPKSTK: : 
007¢ 8 g «WORD acre, »R3,R4,R5,R6> 
6 DSBINT #IPLS ASTDEL :DON'T LET THINGS GET CONFUSED 
54  QOO0'CF 00 4 MOVL WSCHSGL CURPCB,R4 'R4 = PCB 
55 Q0000000'EF 0 08 MOVL CTL USGL p [RS = P1 PHD 
FFFFFFFE'SF DO Oo3F 6 MOVL #SWPSCKSTACK_EX_WSL-  :WSL INDEX FOR FIRST EXPANSION PAGE 
6 45 80 +SUPSC KSTACK-EX=1,R6 
6546 05 0246 808 TSTL ;HAVE WE ALREADY EXPANDED 
7B 12 0249 809 BNEQ $3 YES 
52 00000000'8F D0 0248 810 MOVL #$&#CTLSGL_KSTKBASEXP,R2 :VA OF FIRST EXPANSION PAGE 
0252 811 10S: SETIPL #IPL$_SYNC 
FDA8' 30 025 is BSBW MMGSSVAPTECHK 3GET SVAPTE IN R3 
7E 32 D 6 588 MOVQ =e R2,, = 
FDA2' 30 0258 814 BSBW $MMGSFREWSLE sMAKE SURE WE CAN ADD A WSL PAGE 
52 $f 7D 025€ 819 MOVQ  (SP),R 
69 50 £9 0261 816 BLBC =—_- RO, 100 
7E 10 A5 B80 0264 817 MOVW § PHOSW_WSNEXT(RS) ,-(SP) ; SAVE rie FREE POINTER 
10 AS 56 B0 68 818 MOVW = R6 PHOSu plSNeXT T(RS) “USE THIS wsL jen 
FD91" 30 026C 819 BSBW MMGSIN :GET A PFN or IEL IN WSL 
10 AS. BE 80 6F 820 MOVW CEP) EN ee PUSNEXT(RS) SRESTORE MME NP REE POINTER 
52. 8 D 0 73 : 1 MOVQ = (SP)+.R2 
50 5 i: : TSTL = RO 
5E 19 0 78 «8 BLSS 1108 O PFN AVAILABLE 
00000000'FF40 07 88 O27A 8 4 BISB. #PFNSC_ACTIVE,@L“PFNSAB STATELRO] ;MARK IT ACTIVE 
p0000900 BF C9 6 Be 5 BISL3 #<PTESA_VALID ! PTESC_S KP 
63 50 88 826 RQ, (RS) A VALID PTE 
028A 8 7 INVALID R 
6546 20 C8 028D 8 ISL #WSLSM_WSLOCK, (RS) CR6) :SET LOCK BIT 
08 AS = 0291 829 ECW PHD$W_QSL LIST (RS) :WSL STARTS ONE PAGE SOONER 
52. 0200 C2 9E 0294 0 OVAB 512(R2) PAGE 
0 99 31 SETIPL #IPL$_ASTDEL a THE SYSTEM DO SOMETHING ELSE 
FFAE 56 FF 8F O00°8F 9D 029¢ é #SWPSC_KSTACK_EX_WSL,#-1.R _giNEXT WSL FOR EXPANSION 
FFFFFFFC'EF  Q0000000°8F 00 0 AG MOVL  #CTL$SC =f STKBASERP,, CTLSAL HH NEW STACK LIMITS 
00000000'EF —00000000'8F BO AF 4 OVL scTLSGL- LoKST KB ASEXP CTESALy STACK vin’ 
0000' 8F 2 3 0 C O2BA 5 MOVCS #*X200SWPSC_KS 
0000000" EF ct : a ae. ereset ” ESTRBASEXP ~ SERO Kone NEW PAGES 
50 01 3¢ 02C¢9 8 MOVZUL #SS$_NORMAL RO 
. he 
FD30' 30 O2CD 841 Joos: BSBW MMGSRESRCWAIT :PUT PROCESS ON CORRECT QUEUE 
7E dC 02D 4g 105$: MOVPSL =(SP) ‘WAIT AT THIS PSL 
FD2B' 30 02D 43, BSBW  MMGSSVPCTX [WAIT FOR RESOURCE 
FF7A 31 p 44 BRW 10$ :TRY AGAIN 
50 O0000'CF 7E 3 46 110$: MOVAQ W*SCHSGQ_FPGWO,RO :FREE PAGE QUEUE 
08 AO 6 DD 84 INCW WOH$W WOCNT(ROS [ONE MORE WAITER 
60 64 OF O2E0 848 INSQUE (R4),TRO) TQUEUE THE PCB 
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STA 
YEU _WASTATE CRO) -PCOSU_STATE CRS) SET WAIT STATE IN PCB 
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1 AX/VMS Macro VO 1 
Symbol table -SEP=-1984 4: 5 YOYS SRCISYSLKUSET MAR: 1 3) 
.+sPFN = 00 1E7 R 04 PFNSC_PPGTBL s 4 
ACMODE = 3 8 C PFNSC_PROCESS = 
BIT... = 00 A PFNSC_SYSTEM 2 
BUG$_SWAPWSLE eeeeeeee =X 4 PFNSS_PAGTYP = 
CTLSAL_STACK eeeeeeee =X 4 PFNSV_PAGTYP = 
CTLSAL_STACKLIM eeeeeeee § x 4 PHD$L_POBR = 
CTLSGL-KSTKBASEXP eeeeeeee =X 4 PHDSL_PSTBASOFF = 
CTL$GL~ PHD eeeeeeer =X PHDSL_PTWSLELCK = 3 4 
EXE 0000 15 RG PHDSW_EXTDYNWS = 6 
EXESLKWSET 0000017 RG PHDSW_PTCNTLCK s o6C 
EXESULKPAG 7 RG 0 PHD$W_WSDYN = 
EXESULWSET 0 RG 0 PHDSW_WSLAST = 6 901 
INADR = 4 PHDSW_WSLIST PY 0 
IPLS_ASTDEL = BDO BOOS PHD$W_WSLOCK = 0000000 
IPL$_ SYNCH = 48444 PHDSW_WSNEXT = 0000001 
LCK_F_GLOBAL = 444544 bp PHDSW_WSQUOTA = 494 
LCK_M_LCKPAG = 000001 PHDSW WSSIZE = 0000005 
LCK_V_GLOBAL = 00000009 PRS$_IPL = 00000012 
LCK_V_LCKPAG = 00000008 PR$_TBIS = QQ000003A 
EDE teeereee YX 03 PRVSV_PSWAPM z aaa st 
MMGSC_LENGTH = FFEFFFFES PTESC_SRKW = 50000000 
MMGSERPKSTK 0000022B RG 04 PTESM_VALID = 80000000 
MMGSEXTRADYNWS tereeere =X 04 PTES$S_OWN = Bo 80080 
MMGSFREWSLE teeeeeeer § X 04 PTESS_PFN = 0000001 
MMGSGL_MAXPFN eererere§ XK 04 PTESV_OWN z= a4 eB 
MMGSGL_PFNLOCK 00000000 RG 02 PTESV_PFN = 00000000 
MMGS$GL~ SYSPHD teeeeere O° PTESV_TYP = 00000016 
MMGSINADRINI eeeeeere =X 3 PTESV_WINDOW = 00000015 
MMGSININEWPFN eereeeee = =X | 04 RETA = 00000008 
MMGSLCKULKPAG 00000011 RG 04 SCHSGL_CURPCB teeeeeee XK 04 
MMGSL_MAXACMODE = FFFFFFFC SCHS$GQ~F PGW tereneee§ X 04 
MMGSMOVPTLOCK1 tereeeee XK 04 SECSV_RESIDENT eeenreeee KX 04 
MMGSRESRCWAIT tereeeee XY 04 SECSW-FLAGS aeeeeeee = X 04 
MMGSRE TRANGE teeereee = X 03 SETWSCE 90000106 & 04 
MMGSSCNWSLX 000001F2 RG 04 1 oe = 8 000001 
MMGSSVAPTECHK teateree X 04 SS$_ACCVIO = 0000000C 
MMGSSVPCTX tereeeee = X 04 SS$_-LCKPAGFUL = 00000004 
MMGSSWAPWSLE 000001B6 RG 04 SS$_LKWSETFUL = 00000194 
MMGSULKGBLWSLE 00000000 RG 04 SS$_NOPRIV = 444 it 
MMGSWSLEPFN eererere XK 04 SS$_NORMAL z a4 1 
OP$_ACBL = 000000F1 SS$_PAGOWNVIO = QQOOQOOIEC 
OP$_ACBW = 0000003 SS$_WASCLR = 00000001 
OP$_DECL = 000000D S$S$_WASSET = 00000009 
OP$_DECW = 987 SWAPLOCK 9000143 R 6 
“MOVL PY 08 SWAPWSLEBUG 1EE R 4 
P$_MOVW = 08 SWPSC_KSTACK_EX eeteenee 04 
MOVZWL = 00 C SWPSC-KSTACK_EX_WSL eeereeee = X 04 
CBSQ_PRIV = S 3 SYSSADJWSL eeeeeeee 03 
PCBSW- STATE = C ULKGBLWSLE 5056 R 04 
PFNSAB_STATE eeeeeese =X 04 A$S_B = B09 
PFNSAB_ TYPE eereeeee =X os ASS_VPG = $ 17 
PFNSAL_BAK eeeenere = § x 4 ASV"V = 00000009 
xX" WSLX tereeere XK 04 WOQHSO_WQCNT = 8 
PFNSC_ACTIVE = 7 WOQHSW_WOSTATE = A 
PFNSC_GBLWRT = WSLSM_PFNLOCK 2 1 
PFNSC_ GLOBAL s WSLSM_WSLOCK = 
PFNSC_GPGTBL = WSL$S_PAGTYP = 000000 


Phase Page faults CPU Time Elapsed Time 
Initialization rH 00:00:00.0 0:00:00.50 
Command processing 106 4 Sa 0: 3:3) 
Pass 384 bp: 0:13.5 00:00:32. 
Symbol table sort 9 Bn Oe Ae 00:00:03. 
Pass 2 16 00:00:03.15 Q: BOR" 5 
Symbol table output 16 Be Shs SE 0:00:00. § 
Psect synopsis output 1 00:00:00.04 0:00:00. 
Cross-reference output 0 B88 199-00 8:88 08-80 
Assembler run totals 700 00:00:19.6 00:00:45, 


The working set Limit was 1500 pages. 

80740 bytes (158 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1392 non-local and 49 local symbols. 
source Lines were read in Pass 1, producing 34 object records in Pass 2. 

31 pages of virtual memory were used to define 29 macros. 


+ + 
H Macro Library statistics : 


Macros defined 


-$255$D0UA28: CSYS.OBJJLIB.MLB; 1 17 
$255$0UA28: CSYSLIBJSTARLET.MLB;2 Gg 
TOTALS (all Libraries) 26 


1553 GETS were required to define 26 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSLKWSET/OBJ=OBJ$:SYSLKWSET MSRC$:SYSLKWSET/UPDATE=(ENHS: SYSLKWSET) +EXECMLS/LIB 


dD 5 
SYSLKWSET ~ LOCK/UNLOCK FROM WORKING SET/MEMORY 197-360-1388 Oe: 8] $3 AX/VMS Macro 
Symbol table =SEP=1984 05: 2 (CSYS.SRCISYSLK 
WSL$V_PAGTYP : 1 
WSL$V~PFNLOCK : 4 
WSLSV“WSLOCK = 5 
oor secewe} 
! Psect synopsis ! 
fw moamacnroea= aonoe + 
PSECT name Allocation PSECT No. Attributes 
000 608 ( 8 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
8 8 4 ( -) Q7 ¢ 4.) NOPIC USR CON ABS LCL NOSHR EXE RD 
$$$210 4 ( 4.) § ( 2.) NOPIC USR CON REL LCL NOSHR EXE R&D 
YSEXEPAGED 00000 ( 177.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE R&D 
D QOOOO2ZEA ( 738.3 4 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD 
ZSINITSPFN_F IXUP_TABLE QOOOOOIE ¢ 30.) 05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE RD 
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WSET.MAR; 1 


NOWRT NOVEC BYTE 


WRT NOVEC BYTE 


SY 
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